0 CLS:SCREEN6,0,0:LOCATE9,0,0:IFD=40THENPRINT"SCORE: ";S:COLOR0:POKE&H6294,57:ENDELSEPOKE&H6295,98:POKE&H6296,57:POKE&H6294,50:CLEAR,,2:D=20:DEFGR$(0)=60,126,255,255,255,255,126,60:DEFGR$(1)=124,254,146,124,56,16,16,16
1 FORA=0TO2+(S/5):PSET(RND*39,24)GR$(0),3-(RND>.9):NEXT:LOCATE39,24:PRINTCHR$(13):D=D-(D<1)+(D>38)-(STICK(0)=3)+(STICK(0)=7):PSET(D,0)GR$(1),1:A=POINT(D*8+4,9):IFA=-1GOTO1ELSEIFA=3THEND=40:GOTOELSEPLAY"A4DO":S=S+1:GOTO1